0 REM THE TRANSACTOR VOLUME 5 ISSUE 03 PAGE 33
80 SYS 700
90 .OPT OO
100 ;
110 ;********************************
120 ;* QUADRA 64                    *
130 ;* MAY 14, 1984                 *
140 ;* BY   DANIEL BINGAMON         *
150 ;* FOR THE TRANSACTOR           *
160 ;********************************
170 ;
180 ;      LABEL DEFINITIONS
190 ;
200 *=$C000
210 CHRGET =   $73
220 CHR(null)T =   $79
230 PTR    =   $7A
240 INTGER =   $14
250 TEMP   =   $FB
260 EVAL   =   $AD9E
270 CONVRT =   $B7F7
280 PRINT  =   $AB1E
290 DISPCH =   $0308
300 INTRPT =   $0314
310 BASIC  =   $002B
320 MEMSIZ =   BASIC+10
330 TMPADD =   $14
340 FST    =   $0800
350 SND    =   $2800
360 TRD    =   $4800
370 FTH    =   $6800
380 LMT    =   $A000
390 ;
400 ; INITIALIZATION
410 ;
420 INIT   LDA #>WEDGE   ;INIT WEDGE
430 LDY #<WEDGE
440 STA DISPCH+1
450 STY DISPCH
460 LDA #>INTPRG  ;ENABLE INTERUPT
470 LDY #<INTPRG
480 SEI
490 STA INTRPT+1
500 STY INTRPT
510 CLI
520 LDY #00       ;ZERO FIRST BYTE
530 STY FST       ;OF PARTITIONS.
540 STY SND
550 STY TRD
560 STY FTH
570 LDA #00
580 STA MEMSIZ
590 LDA #28
600 STA MEMSIZ+1
610 LDA #0        ;STARTUP IN
620 STA PARTIT    ;PARTITION 0.
630 LDA #<MSG     ;PRINT TITLE.
640 LDY #>MSG
650 JSR PRINT
660 LDA #00
670 STA ONETIM
680 JSR PR1
690 NOP
700 NOP
710 RTS
720 MSG .BYTE $93: .ASC "QUADRA 64": .BYTE $0D
730 .BYTE $0D: .ASC "BY: DANIEL BINGAMON"
740 .BYTE $0D: .ASC "FOR THE TRANSACTOR"
750 .BYTE $0D,$00,$00,$00
760 WEDGE  JSR CHRGET
770 CMP #"\"    ;IF POUND SIGN
780 BEQ PARSE   ;PROCESS WEDGE.
790 CMP #":"
800 BEQ WEDGE
810 EXIT1A JMP $A7E7
820 EXIT   JMP $A474
830 TAPSPC .BYTE $00,$00,$00,$00,$00,$00
840 ;
850 ; PROCESS WEDGE COMMAND
860 ;
870 PARSE  PHA
880 JSR SAVMEM  ;STORE OLD PART. DATA
890 PLA
900 JSR CHRGET
910 CMP #00
920 BNE CONTIN
930 IRQINT JMP INTCHK
940 PARTIT *=*+1
950 .BYTE $00,$00,$00
960 ERROC  JMP ERRCHK
970 CONTIN CMP #"4"
980 BCS IRQINT
990 PHA
1000 AND #$CF
1010 STA PARTIT
1020 PLA         ;JUMP TO INDIVIDUAL
1030 CMP #"0"    ;PARTITION ROUTINES
1040 BEQ ONE
1050 CMP #"1"
1060 BEQ TWO
1070 CMP #"2"
1080 BEQ THREE
1090 CMP #"3"
1100 BEQ FOUR
1110 BNE IRQINT
1120 ONE    JMP PR1
1130 TWO    JMP PR2
1140 THREE  JMP PR3
1150 FOUR   JMP PR4
1160 ;
1170 ;      PARTITION SELECT TABLE
1180 ;
1190 BNK1   .WORD $0801,$0801,$0801,$2800
1195 .WORD $2800,$2800,$2800,$2800,$0000
1200 BNK2   .WORD $2801,$2801,$2801,$4800
1205 .WORD $4800,$4800,$4800,$4800,$0000
1210 BNK3   .WORD $4801,$4801,$4801,$6800
1215 .WORD $6800,$6800,$6800,$6800,$0000
1220 BNK4   .WORD $6801,$6801,$6801,$A000
1225 .WORD $A000,$A000,$A000,$A000,$0000
1230 ERRCHK CMP #"K"
1240 BNE ERROR
1250 LDA #$A7
1260 STA DISPCH+1
1270 LDA #$E4
1280 STA DISPCH
1290 LDA #$01
1300 STA BASIC
1310 LDA #$08
1320 STA BASIC+1
1330 LDA #$00
1340 STA MEMSIZ
1350 LDA #$A0
1360 STA MEMSIZ+1
1370 JMP EXIT
1380 ERROR  JMP $AF08 ;SYNTAX ERROR
1390 INTCHK LDA #>INTPRG
1400 LDY #<INTPRG
1410 SEI
1420 STA INTRPT+1
1430 STY INTRPT
1440 CLI
1450 LDX PARTIT   ;PRINT PART. NO.
1460 LDA #00
1470 JSR $BDCD ;PRINT INTEGER ROUTINE
1480 JMP EXIT
1490 INTPRG LDA $C5
1500 CMP #63
1510 BNE SKP    ;ESCAPE QUOTE MODE
1520 LDA #0     ;WHEN STOP KEY
1530 STA $D4    ;DEPRESSED.
1540 SKP    LDA $028D  ;ENABLE FREEZING
1550 CMP #06    ;WITH CTRL & COMM.
1560 BNE SKP2   ;KEYS.
1570 CLOOP  JSR $FF9F  ;CTRL & SHIFT TO
1580 LDA $028D  ;RESUME OPERATION.
1590 CMP #05
1600 BNE CLOOP
1610 SKP2   JMP $EA31
1620 ;
1630 PR1    LDX #00    ;PARTITION 1.
1640 LP1    LDA BNK1,X
1650 STA BASIC,X
1660 INX
1670 CPX #$0F
1680 BNE LP1
1690 LDA BASIC+1
1700 STA $FC
1710 LDA #00
1720 STA $FB
1730 TAY
1740 STA (TEMP),Y
1750 LDA ONETIM
1760 CMP #00
1770 BNE NO
1780 LDA #01
1790 STA ONETIM
1800 RTS
1810 NO     JMP EXIT
1820 PR2    LDX #00    ;PARTITION 2.
1830 LP2    LDA BNK2,X
1840 STA BASIC,X
1850 INX
1860 CPX #$0F
1870 BNE LP2
1880 LDA BASIC+1
1890 STA $FC
1900 LDA #00
1910 STA $FB
1920 TAY
1930 STA (TEMP),Y
1940 JMP EXIT
1950 PR3    LDX #00    ;PARTITION 3.
1960 LP3    LDA BNK3,X
1970 STA BASIC,X
1980 INX
1990 CPX #$0F
2000 BNE LP3
2010 LDA BASIC+1
2020 STA $FC
2030 LDA #00
2040 STA $FB
2050 TAY
2060 STA (TEMP),Y
2070 JMP EXIT
2080 PR4    LDX #00    ;PARTITION 4.
2090 LP4    LDA BNK4,X
2100 STA BASIC,X
2110 INX
2120 CPX #$0F
2130 BNE LP4
2140 LDA BASIC+1
2150 STA $FC
2160 LDA #00
2170 STA $FB
2180 TAY
2190 STA (TEMP),Y
2200 JMP EXIT
2210 SAVMEM LDX #00    ;SAVE OLD POINTERS
2220 SAVLP2 LDA PARTIT
2230 CMP #00
2240 BEQ SM1
2250 CMP #01
2260 BEQ SM2
2270 CMP #02
2280 BEQ SM3
2290 BNE SM4
2300 SAVLP1 INX
2310 CPX #$0F
2320 BNE SAVLP2
2330 RTS
2340 SM1    LDA BASIC,X  ;LOAD POINTER FROM
2350 STA BNK1,X   ;EACH PARTITION.
2360 JMP SAVLP1
2370 SM2    LDA BASIC,X
2380 STA BNK2,X
2390 JMP SAVLP1
2400 SM3    LDA BASIC,X
2410 STA BNK3,X
2420 JMP SAVLP1
2430 SM4    LDA BASIC,X
2440 STA BNK4,X
2450 JMP SAVLP1
2460 ONETIM .BYTE $00    ;FIRST TIME INDICATOR.
2470 .END